home *** CD-ROM | disk | FTP | other *** search
/ The American Nation / Resource Pro - The American Nation.iso / pc / data1.cab / Database_Files / ResourcePro.exe / launchpd.dxr / 00029_PE Launch.ls < prev    next >
Encoding:
Text File  |  2000-11-28  |  927 b   |  33 lines
  1. on mouseUp
  2.   global gCurriculum
  3.   if the platform contains "windows" then
  4.     set pePath to the pathName
  5.     repeat while the last char in pePath <> "\"
  6.       delete char -30000 of pePath
  7.     end repeat
  8.     delete char -30000 of pePath
  9.     repeat while the last char in pePath <> "\"
  10.       delete char -30000 of pePath
  11.     end repeat
  12.     set pe to pePath & "Planning Express\PlanningExpress.exe"
  13.     set err to OpenApp(pe, "AB", gCurriculum)
  14.   else
  15.     set err to "none"
  16.     set pePath to the pathName
  17.     repeat while the last char in pePath <> ":"
  18.       delete char -30000 of pePath
  19.     end repeat
  20.     set db to pePath & gCurriculum & ".ped"
  21.     delete char -30000 of pePath
  22.     repeat while the last char in pePath <> ":"
  23.       delete char -30000 of pePath
  24.     end repeat
  25.     set pe to pePath & "Planning Express:Planning Express"
  26.     open(db, pe)
  27.   end if
  28.   if err <> "none" then
  29.     alert(err)
  30.     go("main")
  31.   end if
  32. end
  33.